home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / archives / com / internet / stik / gls002b5.zoo / flags.s < prev    next >
Text File  |  1996-01-02  |  547b  |  37 lines
  1. ; Generated by c68 v4.4.5, 25 Jan 95 (Jan 25 1995) from "flags.c"
  2.     .data
  3. Lflags:
  4.     dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  5.     dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  6.     dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  7.     dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  8.     dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  9.     dc.b    0,0,0,0
  10.  
  11.     .text
  12.     .even
  13.  
  14.     .globl    _do_set_flag
  15. _do_set_flag:
  16.     link    a6,#0
  17.     clr.l    a0
  18.     move.w    8(a6),a0
  19.     add.l    #Lflags,a0
  20.     tas    (a0)
  21.     bne    L1
  22.     clr.l    d0
  23.     bra    L2
  24. L1:    moveq.l    #1,d0
  25. L2:    unlk    a6
  26.     rts
  27.  
  28.     .globl    _do_clear_flag
  29. _do_clear_flag:
  30.     link    a6,#0
  31.     clr.l    a0
  32.     move.w    8(a6),a0
  33.     add.l    #Lflags,a0
  34.     clr.b    (a0)
  35.     unlk    a6
  36.     rts
  37.